home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Asm source / 2d-array next >
Encoding:
Text File  |  1991-06-16  |  484 b   |  24 lines  |  [TEXT/YERK]
  1. \ general 2 dimensional array class. Want this to be in the dictionary
  2. \  since it is pre-loaded with values
  3. :CLASS 2dArray <super array
  4.  
  5.     int xlimit
  6.     int ylimit
  7.  
  8. :M xlimit: get: xlimit ;M
  9. :M yLimit: get: ylimit ;M
  10.  
  11. ( i j -- n )
  12. :M ^ELEM: get: xlimit * + 4*  ixaddr: self + ;M
  13.  
  14. ( 0.66 msec )
  15. :M AT:  ^elem: self @ ;M
  16. ( .60 msec )
  17. :M TO: ^elem: self ! ;M
  18.  
  19. :M CLASSINIT: { x \ y -- } limit: self -> y
  20.     x put: xlimit y put: ylimit
  21.     x y * dup ^base 6 + w! y - 4* reserve ;M
  22.  
  23. ;CLASS
  24.